home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlx_sq21.zip / ESCAPE.SLT < prev    next >
Text File  |  1992-03-09  |  761b  |  33 lines
  1. main()
  2. {
  3. int handle=99
  4.    ,save_zmod
  5.    ,c
  6.    ;
  7.   if (handle==99)
  8.     save_zmod = _zmod_auto;
  9.  
  10.   handle = vsavearea (10,10,62,14);
  11.   _back_color = 4;
  12.   _fore_color = 15;
  13.   c = _back_color*16 + _fore_color;
  14.   if (is_loaded("QDIAL"))
  15.   { box (10,10,62,14,2,0,c);
  16.     pstraxy ("Press 'Y' to abort -- anything else to continue.",12,12,c);
  17.     gotoxy (19,12);
  18.     if ((c=inkeyw())=='Y' || c=='y')
  19.     { call ("GLOBAL","W","LASTK","ESC");
  20.       _zmod_auto = save_zmod;
  21.     }
  22.   }
  23.   else
  24.   { box (10,10,60,14,2,0,c);
  25.     pstraxy ("Press 'Y' to exit -- anything else to continue.",12,12,c);
  26.     gotoxy (19,12);
  27.     if ((c=inkeyw())=='Y' || c=='y')
  28.       exittelix (0,1);                 // Exit.
  29.   }
  30.   vrstrarea (handle);
  31.   handle = 0;
  32. }
  33.